perm filename ACK.VLI[VLI,LSP] blob sn#385503 filedate 1978-09-29 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(de ack (x y) (cond
C00003 ENDMK
CāŠ—;
(de ack (x y) (cond
  ((zerop x) (add1 x))
  ((zerop y) (ack (sub1 x) 1))
  (t (ack (sub1 x) (ack x (sub1 y))))))

(de rev (x y) (cond
  ((null x) y)
  (t (rev (cdr x) (cons (car x) y)))))

(de lin (l r) (cond
  ((null l) r)
  ((atom l) (cons l r))
  (t (lin (car l) (lin (cdr l) r)))))

(de alt (l m n) (cond
  ((null l) nil)
  ((=  m 1) (cons (car l) (alt (cdr l) n n)))
  (t (alt (cdr l) (1- m) n))))